home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 November / macformat-030.iso / Shareware City / HyperCard / Incremental search 1.0 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1995-07-10  |  1.9 KB  |  20 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3964</cardID>
  8.     <listID>2873</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on keyDown theKeyglobal gSearch, gFoundCdsif gSearch is true and the selectedLoc is empty then -- need "is true" when gSearch isn't initialized; the selectedLoc is not empty when insertion pt is in fieldput chartonum(theKey) into theNumif theNum >= 65 and theNum <= 122 thenput theKey after the message boxclick at -1000,1000find the message boxif the result is not empty then answer quote & the message box & quote && "was not found."put the number of this card & "," after gFoundCdselse if theNum = 8 then --delete keydelete the last item of gFoundCdsgo cd the last item of gFoundCdsclick at -1000,1000delete the last char of the message boxif the message box is empty then exit keyDownfind the message boxelse if theNum = 13 or theNum = 101 then --ignore return and enterfind the message boxif the result is not empty then answer quote & the message box & quote && "was not found."put the number of this card & "," after gFoundCdselse pass keyDownelse pass keyDownend keyDownon controlKey theKeyglobal gSearch, gFoundCdsif theKey = 19 then --it's "s"if gSearch is not true then put true into gSearch -- need "is not true" when gSearch isn't initializedelse put false into gSearchif not gSearch then put empty into gFoundCdselse put empty into the message boxend ifpass controlKeyend controlKey</script>
  17.     <background id="2607" file="background_2607.xml" name="" />
  18.     <card id="3964" file="card_3964.xml" marked="false" name="" owner="2607" />
  19. </stack>
  20.